home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 June / june_2000.iso / Site Building / ActiveEditor / active.CAB / ftp.asp < prev    next >
Encoding:
Text File  |  2000-03-16  |  1.6 KB  |  48 lines
  1. <!--subroutine to check adirectory to see if there are any new ftp files-->
  2.  
  3.  
  4. sub FTP(FTPDate)
  5.     dim rsSubject, rsClass, rsDate
  6.     
  7.     set rsSubject = server.CreateObject("ADODB.Recordset")
  8.     set rsClass = server.CreateObject ("ADODB.Recordset")
  9.     set rsDate = server.CreateObject ("ADODB.Recordset")
  10.         
  11.     FTPDate = ""
  12.     Subject = ""
  13.     Class = ""
  14.     
  15.     rsDate.open "select FTPDate from Subjects Union select FTPDate from Classes", "DSN=Learning;", adOpenDynamic, adLockReadOnly    
  16.     
  17.     rsDate.MoveLast 
  18.     do until rsDate.bof
  19.         FTPDate = FTPDate & "<tr><td valign = 'top'><ul><li><b><font color = 'red'>" & rsDate("FTPDate") & "</font></b></li></ul></td>"
  20.         rsClass.Open "select ClassName from Classes where FTPDate = DateValue('" & rsDate("FTPDate") & "') order by FTPDate", "DSN=Learning;", adOpenDynamic, adLockReadOnly 
  21.         rsSubject.Open "select SubjectName from Subjects where FTPDate = DateValue('" & rsDate("FTPDate") & "') order by FTPDate", "DSN=Learning;", adOpenDynamic, adLockReadOnly 
  22.                 
  23.         dim i
  24.         
  25.         FTPDate = FTPDate & "<td valign = 'top'><ul>"
  26.         do until rsSubject.EOF
  27.             FTPDate = FTPDate & "<li>" & rsSubject("SubjectName") & "</li>"
  28.             rsSubject.MoveNext 
  29.         loop
  30.         FTPDate = FTPDate & "</ul></td>"
  31.         
  32.         FTPDate = FTPDate & "<td valign = 'top'><ul>"
  33.         do until rsClass.EOF
  34.             FTPDate = FTPDate & "<li>" & rsClass("ClassName") & "</li>"
  35.             rsClass.MoveNext
  36.         loop
  37.         FTPDate = FTPDate & "</ul></td></tr><tr><td colspan = '3'><hr size = '3' width = '90%'></td></tr>"
  38.         
  39.         rsDate.MovePrevious 
  40.         rsClass.Close
  41.         rsSubject.Close
  42.     loop
  43.     
  44.     set rsDate = nothing
  45.     set rsClass = nothing
  46.     set rsSubject = nothing
  47. end sub
  48. %>